home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / CMDLINE.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  604b  |  26 lines
  1. ' CMDLINE.BAS   gets command line directly from PSP, preserving
  2. '               original case.
  3. '
  4. '   Author:     Christy Gemmell
  5. '   Date:       26/3/1992
  6. '
  7. '   $DYNAMIC
  8. '
  9. '   Change the following line to '$INCLUDE: 'QB.BI' for QB 4.5
  10. '   $INCLUDE: 'QBX.BI'        
  11. '
  12.     DIM SHARED InRegs AS RegType, OutRegs AS RegType
  13.  
  14.     InRegs.ax = &H5100
  15.     INTERRUPT &H21, InRegs, OutRegs
  16.     PSP% = OutRegs.bx: OffSet% = &H80
  17.  
  18.     DEF SEG = PSP%
  19.     CmdLen% = PEEK(OffSet%)
  20.     Cmd$ = ""
  21.     FOR I% = 1 TO CmdLen%
  22.         Cmd$ = Cmd$ + CHR$(PEEK(OffSet% + I%))
  23.     NEXT I%
  24.     PRINT Cmd$
  25. END
  26.